program task2_double;

var num, prev:integer;
check:boolean;

begin
Writeln('Enter a sequence of integers');
Read(num);
prev:=2*num;
read(num);
while num > 0 do
          begin
          check:= num=prev;
          if check=false then begin
                              writeln('Every number is a multiple: ',check);
                              exit;
                              end;
          prev:=2*num;
          read(num);
          end;
writeln('Every number is a multiple: ',check);
end.

